home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Networking / MacMainFrame / card_9160.txt < prev    next >
Text File  |  1989-07-14  |  2KB  |  89 lines
  1. -- card: 9160 from stack: in
  2. -- bmap block id: 15520
  3. -- flags: 0000
  4. -- background id: 4673
  5. -- name: Opening Card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menuBar
  9. end openCard
  10.  
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=429 top=269 right=319 bottom=484
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 27056 / 27056
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: New Button
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   set the userLevel to 1
  28.   hide card field id 6
  29.   visual effect dissolve
  30.   push card
  31.   go to card id 11801
  32. end mouseUp
  33.  
  34.  
  35.  
  36.  
  37. -- part 5 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=34 top=45 right=57 bottom=46
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: New Button
  49. ----- HyperTalk script -----
  50. on mouseDown
  51.   if the optionKey is down then
  52.     show card field id 6
  53.   else
  54.     hide card field id 6
  55.   end if
  56. end mouseDown
  57. on mouseUp
  58.   hide card field id 6
  59. end mouseUp
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66. -- part 6 (field)
  67. -- low flags: 81
  68. -- high flags: 0000
  69. -- rect: left=90 top=214 right=280 bottom=416
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: 
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   hide card field id 6
  81. end mouseUp
  82.  
  83.  
  84. -- part contents for card part 6
  85. ----- text -----
  86.                              Revision 1.3
  87.                           August  22, 1988
  88.         Concept, design, scripting:  Eric Binder
  89.          Scripting, revisions:  Steve Puchkoff